home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / Pod / Simple / Transcode.pm < prev    next >
Encoding:
Text File  |  2009-06-26  |  656 b   |  34 lines
  1.  
  2. require 5;
  3. package Pod::Simple::Transcode;
  4.  
  5. BEGIN {
  6.   if(defined &DEBUG) {;} # Okay
  7.   elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
  8.   else { *DEBUG = sub () {0}; }
  9. }
  10.  
  11. foreach my $class (
  12.   'Pod::Simple::TranscodeSmart',
  13.   'Pod::Simple::TranscodeDumb',
  14.   '',
  15. ) {
  16.   $class or die "Couldn't load any encoding classes";
  17.   DEBUG and print "About to try loading $class...\n";
  18.   eval "require $class;";
  19.   if($@) {
  20.     DEBUG and print "Couldn't load $class: $@\n";
  21.   } else {
  22.     DEBUG and print "OK, loaded $class.\n";
  23.     @ISA = ($class);
  24.     last;
  25.   }
  26. }
  27.  
  28. sub _blorp { return; } # just to avoid any "empty class" warning
  29.  
  30. 1;
  31. __END__
  32.  
  33.  
  34.